
Type CUI

	Field window:TGadget
	Field gadgets:TGadget[]
	Field Parent:CUI
	Field Children:TList = New TList

	Method Init(p:CUI=Null)
	
		p = Parent
		If Parent <> Null Then
			ListAddLast(Parent.Children,Self)
		EndIf
		
	EndMethod
	
	Method Update(EID:Int)
	
	EndMethod
	
	

EndType
